Cyber Strip Poker/Cyber Strip Poker.rar/IMAGE.img/pok38pc.dir/00002_Script_2

Text File | 1995-08-14 | 25KB | 895 lines

on betenabler flag
  nothing
end betenabler

ON UNPUPBUTS
  REPEAT WITH I= 15 TO 24
    SET THE VISIBILITY OF SPRITE I TO FALSE
  END REPEAT
END UNPUPBUTS

ON PUPBUTS
  REPEAT WITH I= 15 TO 24
    SET THE VISIBILITY OF SPRITE I TO TRUE
  END REPEAT
END PUPBUTS

on newgame2 amt
  global HardAmount
  setpuppets
  set hardamount=amt
  go "Pre"
end newgame2

on menusetbet betval
  global ybet,dbet,ybank,dbank,pot
  set ybet=betval
  if ybet<5 then
    set ybet=0
    set the text of cast "bets" = "$"&dbet&return&return&return&"FOLD"
    set the text of cast "info"="MY BANK:"&RETURN&"$"&dbank&RETURN&RETURN&"MY BET:"&RETURN&"$"&Dbet ¼
&RETURN&RETURN&"POT:"&RETURN&"$"&pot&RETURN&RETURN&"YOUR BET:"&RETURN&"FOLD"&RETURN&RETURN ¼
&"U BANK:"&RETURN&"$"&ybank
    exit
  end if
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  setinfo

  if the frame > 55 then
    okbet2
  else
    okbet
  end if

end menusetbet

on setinfo
  global ybank,dbank,pot,ybet,dbet
  set the text of cast "info"="MY BANK:"&RETURN&"$"&dbank&RETURN&RETURN&"MY BET:"&RETURN&"$"&Dbet ¼
&RETURN&RETURN&"POT:"&RETURN&"$"&pot&RETURN&RETURN&"YOUR BET:"&RETURN&"$"&ybet&RETURN&RETURN ¼
&"U BANK:"&RETURN&"$"&ybank
end setinfo

on Check
  global yoldbet,doldbet,ybet,dbet,ybank,dbank,pot
  set the text of cast "bettext"="Place Your Second Bet"
  set dbet=0
  set ybet=5
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  setinfo
  set yoldbet=0
  set doldbet=5
  checkhand
  checkdhandfinal
  go "ybet2"
end Check

on ablemenu themenu, flag
  nothing
end ablemenu

on Okbet2
  global ybet,dbet,ycard1,ycard2,ycard3,ycard4,ycard5,yoldbet,pot, ybank
  betenabler (false)
  if ybet=0 then
    set ycard1=52
    set ycard2=52
    set ycard3=52
    set ycard4=52
    set ycard5=52
    set the text of cast B35 = "You Fold"
    set the text of cast b34 = "I Win By Default"
    go "FOLD"
    exit
  end if
  if ybet<dbet then beep(1)
  if ybet>dbet then
    set the text of cast "bettext"="You Bet "&Ybet
    set pot=pot+(ybet-yoldbet)
    set ybank=ybank-(ybet-yoldbet)
    set the text of cast "yscore" = "$"&ybank
    set the text of cast "pot" = "$"&pot
    setinfo
    set yoldbet=ybet
    play "y2pot"
    go "Dbet2"
    exit
  end if
  if ybet=dbet then
    set the text of cast "bettext"="You Call With "&Ybet
    set pot=pot+(ybet-yoldbet)
    set ybank=ybank-(ybet-yoldbet)
    set the text of cast "yscore" = "$"&ybank
    set the text of cast "pot" = "$"&pot
    setinfo
    set yoldbet=ybet
    play "y2pot"
    starttimer
    repeat while the timer<60
    end repeat
    checkwinner
    exit
  end if
end okbet2

on dbet2
  global ybank,dbank,Pot,ybet,dbet,dfeel,doldbet
  set doldbet=dbet
  if abs(ybet-dfeel)<15 then
    dcall2
    play "D2pot"
    checkwinner
    exit
  end if
  if ybet-dfeel>14 then
    if random(4)=1 then
      dfold
      exit
    else
      Dcall2
      play "D2pot"
      checkwinner
      exit
    end if
  end if
  if ybet-dfeel>45 then
    if random(2)=1 then
      Dfold
      exit
    else
      Dcall2
      play "D2pot"
      checkwinner
      exit
    end if
  end if
  if dfeel-ybet>60 then
    set dbet=ybet+(integer((dfeel-ybet)*.10)*5)
    if dbet>100 then set dbet = 100
    raise2
    play "D2pot"
    exit
  end if
  if dfeel-ybet>14 then
    if random (2)=1 then
      set dbet=ybet+(integer((dfeel-ybet)*.04)*5)
      if dbet>100 then set dbet = 100
      raise2
      play "D2pot"
      exit
    else
      Dcall2
      play "D2pot"
      checkwinner
      exit
    end if
  end if
  exit
  beep(3)
end dbet2

on dbet
  global ybank,dbank,Pot,ybet,dbet,dfeel,doldbet
  set doldbet=dbet
  if abs(ybet-dfeel)<15 then
    dcall
    play "D2pot"
    go "flip"
    exit
  end if
  if ybet-dfeel>14 then
    if random(4)=1 then
      dfold
      exit
    else
      Dcall
      play "D2pot"
      go "flip"
      exit
    end if
  end if
  if ybet-dfeel>40 then
    if random(2)=1 then
      Dfold
      exit
    else
      Dcall
      play "D2pot"
      go "flip"
      exit
    end if
  end if
  if dfeel-ybet>60 then
    set dbet=ybet+(integer((dfeel-ybet)*.10)*5)
    if dbet>100 then set dbet = 100
    raise
    play "D2pot"
    exit
  end if
  if dfeel-ybet>14 then
    if random(2)=1 then
      set dbet=ybet+(integer((dfeel-ybet)*.04)*5)
      if dbet>100 then set dbet = 100
      raise
      play "D2pot"
      exit
    else
      Dcall
      go "flip"
      play "D2pot"
      exit
    end if
  end if
  beep(3)
end dbet

on raise
  global ybet,dbet,pot,doldbet,dbank,ybank
  if abs(dbet-ybet)<5 then
    Dcall
    exit
  end if
  puppetsound "draise"
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  set temp=dbet-ybet
  set the text of cast "bettext"="Dealer Calls And Raises "&temp
  set pot=pot+(dbet-doldbet)
  set dbank=dbank-(dbet-doldbet)
  set the text of cast "pot" = "$"&pot
  set the text of cast "dscore" = "$"&dbank
  setinfo
  go "Ybet"
end raise

on raise2
  global ybet,dbet,pot,doldbet,dbank,ybank
  if abs(dbet-ybet)<5 then
    Dcall2
    exit
  end if
  puppetsound "draise"
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  set temp=dbet-ybet
  set the text of cast "bettext"="Dealer Calls And Raises "&temp
  set pot=pot+(dbet-doldbet)
  set dbank=dbank-(dbet-doldbet)
  set the text of cast "pot" = "$"&pot
  set the text of cast "dscore" = "$"&dbank
  setinfo
  go "Ybet2"
end raise2

on dfold
  global dbet,ybet,dcard1,dcard2,dcard3,dcard4,dcard5,ybank,dbank,pot
  set dcard1=52
  set dcard2=52
  set dcard3=52
  set dcard4=52
  set dcard5=52
  set the text of cast B34="I Got crapà I Fold"
  set the text of cast B35 = "You Winà I Folded"
  set the text of cast "bets" = "FOLD"&return&return&return&"$"&ybet
  setinfo
  Go "Ywin"
end dfold

on dcall
  global dbet,ybet,pot,doldbet,dbank,ybank
  puppetsound "dcall"
  set dbet=ybet
  set the text of cast "bettext" = "Dealer Calls"
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  set pot=pot+(dbet-doldbet)
  set dbank=dbank-(dbet-doldbet)
  set the text of cast "pot" = "$"&pot
  setinfo
  set the text of cast "dscore" = "$"&dbank
end dcall

on dcall2
  global dbet,ybet,pot,doldbet,dbank,ybank
  puppetsound "dcall"
  set dbet=ybet
  set the text of cast "bettext" = "Dealer Calls"
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  set pot=pot+(dbet-doldbet)
  set dbank=dbank-(dbet-doldbet)
  set the text of cast "pot" = "$"&pot
  setinfo
  set the text of cast "dscore" = "$"&dbank
end dcall2

on Okbet
  global ybet,dbet,ycard1,ycard2,ycard3,ycard4,ycard5,yoldbet,pot, ybank
  betenabler (false)
  if ybet=0 then
    set ycard1=52
    set ycard2=52
    set ycard3=52
    set ycard4=52
    set ycard5=52
    set the text of cast B35 = "You Fold"
    set the text of cast b34 = "I Win By Default"
    go "FOLD"
    exit
  end if
  if ybet<dbet then beep(1)
  if ybet>dbet then
    set the text of cast "bettext"="You Bet "&Ybet
    set pot=pot+(ybet-yoldbet)
    set ybank=ybank-(ybet-yoldbet)
    set the text of cast "yscore" = "$"&ybank
    set the text of cast "pot" = "$"&pot
    setinfo
    set yoldbet=ybet
    play "y2pot"
    go "Dbet"
    exit
  end if
  if ybet=dbet then
    set the text of cast "bettext"="You Call With "&Ybet
    set pot=pot+(ybet-yoldbet)
    set ybank=ybank-(ybet-yoldbet)
    set the text of cast "yscore" = "$"&ybank
    set the text of cast "pot" = "$"&pot
    setinfo
    set yoldbet=ybet
    play "y2pot"
    starttimer
    repeat while the timer<60
    end repeat
    go "flip"
    exit
  end if
end okbet

on initVariables
  betenabler (false)
  m13inch
  global ybank,dbank,Pot,ybet,dbet,dfeel,hardamount
  set ybet=5
  set dbet=0
  set dfeel=0
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  put 0 into Pot
  put hardamount into ybank
  put hardamount into dbank
  set the text of cast "yscore" = "$"&ybank
  set the text of cast "dscore" = "$"&dbank
  setinfo
end initVariables

on Ante
  global ybank,pot,ybet,dbet,dbank,yoldbet,doldbet
  puppetsound "Ante"
  set the text of cast "bettext"="Ante Up"
  set ybet=5
  set yoldbet=0
  set ybank=ybank-5
  set the text of cast "yscore" = "$"&ybank
  play "y2pot"
  set pot=pot +5
  set the text of cast "pot" = "$"&pot
  set dbet=0
  set doldbet=0
  set dbank=dbank-5
  set the text of cast "dscore" = "$"&dbank
  play "d2pot"
  set pot=pot +5
  set the text of cast "pot" = "$"&pot
  setinfo
  go "YCards"
  exit
end Ante

on YMoney
  global ybank,pot
  set Ybank=Ybank+pot
  set the text of cast "yscore" = "$"&ybank
  set pot=0
  set the text of cast "pot" = "$"&pot
  setinfo
  go "restart"
  exit
End YMoney

on DMoney
  global Dbank,pot
  set Dbank=Dbank+pot
  set the text of cast "Dscore" = "$"&Dbank
  set pot=0
  set the text of cast "pot" = "$"&pot
  setinfo
  go "restart"
  exit
End DMoney

on checkwinner
  global yv,dv,yh,dh,yh2,dh2,hand,dhand,ybank,dbank,pot
  set the text of cast B34 = dhand
  set the text of cast B35 = hand
  set the text of cast "yscore" = "$"&ybank
  set the text of cast "dscore" = "$"&dbank
  setinfo
  if yv>dv then
    set the text of cast "yscore" = "$"&ybank
    set the text of cast "dscore" = "$"&dbank
    setinfo
    go "YWin"
    exit
  end if
  if yv=dv then
    if yh>dh then
      set the text of cast "yscore" = "$"&ybank
      set the text of cast "dscore" = "$"&dbank
      setinfo
      go "YWin"
      exit
    end if
    if yh=dh then
      if Yh2>dh2 then
        set the text of cast "yscore" = "$"&ybank
        set the text of cast "dscore" = "$"&dbank
        setinfo
        go "YWin"
        exit
      end if
    end if
  end if
  set the text of cast "yscore" = "$"&ybank
  set the text of cast "dscore" = "$"&dbank
  setinfo
  go "DWin"
end checkwinner

on startmovie
  --SIZE OF MONITOR
  global size
  set size=true
  --
  setpuppets
  global Pot,ybet,dbet,dfeel,ybank,dbank
  set ybet=5
  set dbet=0
  set dfeel=0
  set pot = 0
  set the text of cast "bets" = "$"&dbet&return&return&return&"$"&ybet
  setinfo
end startmovie

on setpuppets
  puppetsprite 15, true
  set the locH of sprite 15 to 40
  set the locV of sprite 15 to 40
  set the castnum of sprite 15 to 248
  puppetsprite 16, true
  set the locH of sprite 16 to 90
  set the locV of sprite 16 to 40
  set the castnum of sprite 16 to 248
  puppetsprite 17, true
  set the locH of sprite 17 to 140
  set the locV of sprite 17 to 40
  set the castnum of sprite 17 to 248
  puppetsprite 18, true
  set the locH of sprite 18 to 190
  set the locV of sprite 18 to 40
  set the castnum of sprite 18 to 248
  puppetsprite 19, true
  set the locH of sprite 19 to 240
  set the locV of sprite 19 to 40
  set the castnum of sprite 19 to 248
  puppetsprite 20, true
  set the locH of sprite 20 to 211
  set the locV of sprite 20 to 388
  set the castnum of sprite 20 to 245
  puppetsprite 21, true
  set the locH of sprite 21 to 269
  set the locV of sprite 21 to 388
  set the castnum of sprite 21 to 245
  puppetsprite 22, true
  set the locH of sprite 22 to 321
  set the locV of sprite 22 to 388
  set the castnum of sprite 22 to 245
  puppetsprite 23, true
  set the locH of sprite 23 to 376
  set the locV of sprite 23 to 388
  set the castnum of sprite 23 to 245
  puppetsprite 24, true
  set the locH of sprite 24 to 430
  set the locV of sprite 24 to 388
  set the castnum of sprite 24 to 245
end setpuppets

on M13inch
  global size
  set size=true
  puppetsprite 6, False
  set the locV of sprite 20 to 388
  set the locV of sprite 21 to 388
  set the locV of sprite 22 to 388
  set the locV of sprite 23 to 388
  set the locV of sprite 24 to 388
end M13inch

on M12inch
  global size
  set size=false
  puppetsprite 6, true
  set the castnum of sprite 6 = 3
  set the loch of sprite 6 to 398
  set the locv of sprite 6 to 54
  set the locV of sprite 20 to 352
  set the locV of sprite 21 to 352
  set the locV of sprite 22 to 352
  set the locV of sprite 23 to 352
  set the locV of sprite 24 to 352
end M12inch

On Namer
  global namein,nameout
  if Namein=0 then set nameout="Deuce"
  if Namein=1 then set nameout="Three"
  if Namein=2 then set nameout="Four"
  if Namein=3 then set nameout="Five"
  if Namein=4 then set nameout="Six"
  if Namein=5 then set nameout="Seven"
  if Namein=6 then set nameout="Eight"
  if Namein=7 then set nameout="Nine"
  if Namein=8 then set nameout="Ten"
  if Namein=9 then set nameout="Jack"
  if Namein=10 then
    if random(2)=2 then set nameout="Queen"
    else set nameout = "Lady"
  end if
  if Namein=11 then set nameout="King"
  if Namein=12 then set nameout="Ace"
end Namer

on bossStart
  when timeout then Nothing
  sound stop 1
  sound stop 2
end bossStart

on bossOver
  nothing
end bossOver

on replaceCards
  global cardup1,cardup2,cardup3,cardup4,cardup5
  global ycard1,ycard2,ycard3,ycard4,ycard5,ycard6,ycard7,ycard8,ycard9,ycard10
  if (cardup1+cardup2+cardup3+cardup4+cardup5)=5 then
    go "Chek"
    exit
  end if
  if cardup1=False then set ycard1=ycard6
  if cardup2=False then set ycard2=ycard7
  if cardup3=False then set ycard3=ycard8
  if cardup4=False then set ycard4=ycard9
  if cardup5=False then set ycard5=ycard10
  sort
  set the castnum of sprite 20 to 245
  set the castnum of sprite 21 to 245
  set the castnum of sprite 22 to 245
  set the castnum of sprite 23 to 245
  set the castnum of sprite 24 to 245
end replaceCards

on card1
  global cardup1,cardup2,cardup3,cardup4,cardup5,ycard1
  if ((cardup1+cardup2+cardup3+cardup4+cardup5)<3 and cardup1=True) then exit
  set cardup1=not(cardup1)
  puppetsound "deal"&random(5)
  if cardup1=False then set the castnum of sprite 20 to 245
  else set the castnum of sprite 20 to (193+ycard1)
end card1
on card2
  global cardup1,cardup2,cardup3,cardup4,cardup5,ycard2
  if ((cardup1+cardup2+cardup3+cardup4+cardup5)<3 and cardup2=True) then exit
  set cardup2=not(cardup2)
  puppetsound "deal"&random(5)
  if cardup2=False then set the castnum of sprite 21 to 245
  else set the castnum of sprite 21 to (193+ycard2)
end card2
on card3
  global cardup1,cardup2,cardup3,cardup4,cardup5,ycard3
  if ((cardup1+cardup2+cardup3+cardup4+cardup5)<3 and cardup3=True) then exit
  set cardup3=not(cardup3)
  puppetsound "deal"&random(5)
  if cardup3=False then set the castnum of sprite 22 to 245
  else set the castnum of sprite 22 to (193+ycard3)
end card3
on card4
  global cardup1,cardup2,cardup3,cardup4,cardup5,ycard4
  if ((cardup1+cardup2+cardup3+cardup4+cardup5)<3 and cardup4=True) then exit
  set cardup4=not(cardup4)
  puppetsound "deal"&random(5)
  if cardup4=False then set the castnum of sprite 23 to 245
  else set the castnum of sprite 23 to (193+ycard4)
end card4
on card5
  global cardup1,cardup2,cardup3,cardup4,cardup5,ycard5
  if ((cardup1+cardup2+cardup3+cardup4+cardup5)<3 and cardup5=True) then exit
  set cardup5=not(cardup5)
  puppetsound "deal5"
  if cardup5=False then set the castnum of sprite 24 to 245
  else set the castnum of sprite 24 to (193+ycard5)
end card5

on sort
  puppetsound 0
  set temp=-1
  global ycard1,ycard2,ycard3,ycard4,ycard5,ycard6,ycard7,ycard8
  global dcard1,dcard2,dcard3,dcard4,dcard5,dcard6,dcard7,dcard8
  global y1,y2,y3,y4,y5
  global ys1,ys2,ys3,ys4,ys5
  global d1,d2,d3,d4,d5
  global ds1,ds2,ds3,ds4,ds5
  global cardUp1,cardUp2,cardUp3,cardUp4,cardUp5
  put true into cardup1
  put true into cardup2
  put true into cardup3
  put true into cardup4
  put true into cardup5
  --
  if (ycard2 mod 13) < (ycard1 mod 13) then
    set temp=ycard2
    set ycard2=ycard1
    set ycard1=temp
  end if
  --
  if (ycard3 mod 13) < (ycard2 mod 13) then
    if (ycard3 mod 13) < (ycard1 mod 13) then
      set temp=ycard3
      set ycard3=ycard2
      set ycard2=ycard1
      set ycard1=temp
    else
      set temp=ycard3
      set ycard3=ycard2
      set ycard2=temp
    end if
  end if
  --
  if (ycard4 mod 13) < (ycard3 mod 13) then
    if (ycard4 mod 13) < (ycard2 mod 13) then
      if (ycard4 mod 13) < (ycard1 mod 13) then
        set temp= ycard4
        set ycard4=ycard3
        set ycard3=ycard2
        set ycard2=ycard1
        set ycard1=temp
      else
        set temp=ycard4
        set ycard4=ycard3
        set ycard3=ycard2
        set ycard2=temp
      end if
    else
      set temp = ycard4
      set ycard4=ycard3
      set ycard3=temp
    end if
  end if
  --
  if (ycard5 mod 13) < (ycard4 mod 13) then
    if (ycard5 mod 13) < (ycard3 mod 13) then
      if (ycard5 mod 13) < (ycard2 mod 13) then
        if (ycard5 mod 13) < (ycard1 mod 13) then
          set temp= ycard5
          set ycard5=ycard4
          set ycard4=ycard3
          set ycard3=ycard2
          set ycard2=ycard1
          set ycard1=temp
        else
          set temp=ycard5
          set ycard5=ycard4
          set ycard4=ycard3
          set ycard3=ycard2
          set ycard2=temp
        end if
      else
        set temp=ycard5
        set ycard5=ycard4
        set ycard4=ycard3
        set ycard3=temp
      end if
    else
      set temp=ycard5
      set ycard5=ycard4
      set ycard4=temp
    end if
  end if
  --*************Dealers cards
  if (dcard2 mod 13) < (dcard1 mod 13) then
    set temp=dcard1
    set dcard1=dcard2
    set dcard2=temp
  end if
  --
  if (dcard3 mod 13) < (dcard2 mod 13) then
    if (dcard3 mod 13) < (dcard1 mod 13) then
      set temp=dcard3
      set dcard3=dcard2
      set dcard2=dcard1
      set dcard1=temp
    else
      set temp=dcard3
      set dcard3=dcard2
      set dcard2=temp
    end if
  end if
  --
  if (dcard4 mod 13) < (dcard3 mod 13) then
    if (dcard4 mod 13) < (dcard2 mod 13) then
      if (dcard4 mod 13) < (dcard1 mod 13) then
        set temp= dcard4
        set dcard4=dcard3
        set dcard3=dcard2
        set dcard2=dcard1
        set dcard1=temp
      else
        set temp=dcard4
        set dcard4=dcard3
        set dcard3=dcard2
        set dcard2=temp
      end if
    else
      set temp = dcard4
      set dcard4=dcard3
      set dcard3=temp
    end if
  end if
  --
  if (dcard5 mod 13) < (dcard4 mod 13) then
    if (dcard5 mod 13) < (dcard3 mod 13) then
      if (dcard5 mod 13) < (dcard2 mod 13) then
        if (dcard5 mod 13) < (dcard1 mod 13) then
          set temp= dcard5
          set dcard5=dcard4
          set dcard4=dcard3
          set dcard3=dcard2
          set dcard2=dcard1
          set dcard1=temp
        else
          set temp=dcard5
          set dcard5=dcard4
          set dcard4=dcard3
          set dcard3=dcard2
          set dcard2=temp
        end if
      else
        set temp=dcard5
        set dcard5=dcard4
        set dcard4=dcard3
        set dcard3=temp
      end if
    else
      set temp=dcard5
      set dcard5=dcard4
      set dcard4=temp
    end if
  end if

  set y1=(ycard1 mod 13)
  set ys1=(ycard1 / 13)
  set y2=(ycard2 mod 13)
  set ys2=(ycard2 / 13)
  set y3=(ycard3 mod 13)
  set ys3=(ycard3 / 13)
  set y4=(ycard4 mod 13)
  set ys4=(ycard4 / 13)
  set y5=(ycard5 mod 13)
  set ys5=(ycard5 / 13)

  set d1=(dcard1 mod 13)
  set ds1=(dcard1 / 13)
  set d2=(dcard2 mod 13)
  set ds2=(dcard2 / 13)
  set d3=(dcard3 mod 13)
  set ds3=(dcard3 / 13)
  set d4=(dcard4 mod 13)
  set ds4=(dcard4 / 13)
  set d5=(dcard5 mod 13)
  set ds5=(dcard5 / 13)
end sort

on shuffle
  global hand, dhand
  Put "Nothing Special" into hand
  Put "Nothing At All" into dhand
  global ycard1,ycard2,ycard3,ycard4,ycard5,ycard6,ycard7,ycard8,ycard9,ycard10
  set ycard1=(random(52)-1)
  set ycard2=(random(52)-1)
  set ycard3=(random(52)-1)
  set ycard4=(random(52)-1)
  set ycard5=(random(52)-1)
  set ycard6=(random(52)-1)
  set ycard7=(random(52)-1)
  set ycard8=(random(52)-1)
  set ycard9=(random(52)-1)
  set ycard10=(random(52)-1)
  global dcard1,dcard2,dcard3,dcard4,dcard5,dcard6,dcard7,dcard8
  set dcard1=(random(52)-1)
  set dcard2=(random(52)-1)
  set dcard3=(random(52)-1)
  set dcard4=(random(52)-1)
  set dcard5=(random(52)-1)
  set dcard6=(random(52)-1)
  set dcard7=(random(52)-1)
  set dcard8=(random(52)-1)
  --
  set ycard1=(random(52)-1)
  repeat while (ycard2 = ycard1)
    set ycard2=(random(52)-1)
  end repeat
  repeat while (ycard3=ycard1 or ycard3=ycard2)
    set ycard3=(random(52)-1)
  end repeat
  repeat while (ycard4=ycard1 or ycard4=ycard2 or ycard4=ycard3)
    set ycard4=(random(52)-1)
  end repeat
  repeat while (ycard5=ycard1 or ycard5=ycard2 or ycard5=ycard3 or ycard5=ycard4)
    set ycard5=(random(52)-1)
  end repeat
  repeat while (ycard6=ycard1 or ycard6=ycard2 or ycard6=ycard3 or ycard6=ycard4 or ycard6=ycard5)
    set ycard6=(random(52)-1)
  end repeat
  repeat while (ycard7=ycard1 or ycard7=ycard2 or ycard7=ycard3 or ycard7=ycard4 or ycard7=ycard5 ¼
or ycard7=ycard6)
    set ycard7=(random(52)-1)
  end repeat
  repeat while (ycard8=ycard1 or ycard8=ycard2 or ycard8=ycard3 or ycard8=ycard4 or ycard8=ycard5 ¼
or ycard8=ycard6 or ycard8=ycard7)
    set ycard8=(random(52)-1)
  end repeat
  repeat while (dcard1=ycard1 or dcard1=ycard2 or dcard1=ycard3 or dcard1=ycard4 or dcard1=ycard5 ¼
or dcard1=ycard6 or dcard1=ycard7 or dcard1=ycard8)
    set dcard1=(random(52)-1)
  end repeat
  repeat while (dcard2=ycard1 or dcard2=ycard2 or dcard2=ycard3 or dcard2=ycard4 or dcard2=ycard5 ¼
or dcard2=ycard6 or dcard2=ycard7 or dcard2=ycard8 or dcard2=dcard1)
    set dcard2=(random(52)-1)
  end repeat
  repeat while (dcard3=ycard1 or dcard3=ycard2 or dcard3=ycard3 or dcard3=ycard4 or dcard3=ycard5 ¼
or dcard3=ycard6 or dcard3=ycard7 or dcard3=ycard8 or dcard3=dcard1 or dcard3=dcard2)
    set dcard3=(random(52)-1)
  end repeat
  repeat while (dcard4=ycard1 or dcard4=ycard2 or dcard4=ycard3 or dcard4=ycard4 or dcard4=ycard5 ¼
or dcard4=ycard6 or dcard4=ycard7 or dcard4=ycard8 or dcard4=dcard1 or dcard4=dcard2 or dcard4=dcard3)
    set dcard4=(random(52)-1)
  end repeat
  repeat while (dcard5=ycard1 or dcard5=ycard2 or dcard5=ycard3 or dcard5=ycard4 or dcard5=ycard5 ¼
or dcard5=ycard6 or dcard5=ycard7 or dcard5=ycard8 or dcard5=dcard1 or dcard5=dcard2 or dcard5=dcard3 ¼
or dcard5=dcard4)
    set dcard5=(random(52)-1)
  end repeat
  repeat while (dcard6=ycard1 or dcard6=ycard2 or dcard6=ycard3 or dcard6=ycard4 or dcard6=ycard5 ¼
or dcard6=ycard6 or dcard6=ycard7 or dcard6=ycard8 or dcard6=dcard1 or dcard6=dcard2 or dcard6=dcard3 ¼
or dcard6=dcard4 or dcard6=dcard5)
    set dcard6=(random(52)-1)
  end repeat
  repeat while (dcard7=ycard1 or dcard7=ycard2 or dcard7=ycard3 or dcard7=ycard4 or dcard7=ycard5 ¼
or dcard7=ycard6 or dcard7=ycard7 or dcard7=ycard8 or dcard7=dcard1 or dcard7=dcard2 or dcard7=dcard3 ¼
or dcard7=dcard4 or dcard7=dcard5 or dcard7=dcard6)
    set dcard7=(random(52)-1)
  end repeat
  repeat while (dcard8=ycard1 or dcard8=ycard2 or dcard8=ycard3 or dcard8=ycard4 or dcard8=ycard5 ¼
or dcard8=ycard6 or dcard8=ycard7 or dcard8=ycard8 or dcard8=dcard1 or dcard8=dcard2 or dcard8=dcard3 ¼
or dcard8=dcard4 or dcard8=dcard5 or dcard8=dcard6 or dcard8=dcard7)
    set dcard8=(random(52)-1)
  end repeat
  repeat while (ycard9=ycard1 or ycard9=ycard2 or ycard9=ycard3 or ycard9=ycard4 or ycard9=ycard5 ¼
or ycard9=ycard6 or ycard9=ycard7 or ycard9=ycard8 or ycard9=dcard1 or ycard9=dcard2 or ycard9=dcard3 ¼
or ycard9=dcard4 or ycard9=dcard5 or ycard9=dcard6 or ycard9=dcard7 or ycard9=dcard8)
    set ycard9=(random(52)-1)
  end repeat
  repeat while (ycard10=ycard1 or ycard10=ycard2 or ycard10=ycard3 or ycard10=ycard4 or ycard10=ycard5 ¼
or ycard10=ycard6 or ycard10=ycard7 or ycard10=ycard8 or ycard10=dcard1 or ycard10=dcard2 or ¼
ycard10=dcard3 ¼
or ycard10=dcard4 or ycard10=dcard5 or ycard10=dcard6 or ycard10=dcard7 or ycard10=dcard8 or ¼
ycard10=ycard9)
    set ycard10=(random(52)-1)
  end repeat
end shuffle